Public Class SQLParseAlterColumnDefinition
    Inherits SQLParser

    Protected Overrides Function MyParserState() As SQLParserState
        Return SQLParserState.SQLParseAlterColumnDefinition
    End Function

    Protected Friend Overrides Sub ParseCommands(ByVal Commands() As String, ByRef tables As TableList)
        If Commands.Length < 3 Then Return
        If Commands(0).ToLower() = "constraint" Then
            If Commands(2).ToLower() = "primary" And Commands(3).ToLower() = "key" Then
                Me.SetParserState(SQLParserState.SQLParsePrimaryKey)
            ElseIf Commands(2).ToLower() = "foreign" And Commands(3).ToLower() = "key" Then
                Me.SetParserState(SQLParserState.SQLParseForeignKey)
            End If
        End If
    End Sub
End Class
